perm filename N[CRE,BGB] blob
sn#103902 filedate 1974-05-26 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00003 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 LINK NAMES DEFINED.
C00004 00003 PROPERTY-TYPE MACROS.
C00006 ENDMK
C⊗;
;LINK NAMES DEFINED.
DEFINE LEFT $(NAM,WRD,Z){
IFIDN<><Z><DEFINE NAM(A,Q)<CAR A,WRD(Q)>>
IFDIF<><Z><DEFINE NAM(A,Q)<NIP A,WRD(Q)>>
DEFINE NAM$.(A,Q)<DIP A,WRD(Q)>
}
DEFINE RIGHT $(NAM,WRD,Z){
IFIDN<><Z><DEFINE NAM(A,Q)<CDR A,WRD(Q)>>
IFDIF<><Z><DEFINE NAM(A,Q)<NAP A,WRD(Q)>>
DEFINE NAM$.(A,Q)<DAP A,WRD(Q)>
}
LEFT(CW,0) RIGHT(CCW,0)
LEFT(ROW,3)↔ RIGHT(COL,3)
LEFT(DAD,1)↔ RIGHT(SON,1)
LEFT(TYPE,2)↔ RIGHT(RELOC,2)
LEFT(ENDO,3)↔ RIGHT(EXO,3)
LEFT(ALT,4) LEFT(ARC,4) RIGHT(NCNT,4,N)
LEFT(NGON,5)↔ RIGHT(PGON,5)
LEFT(NTIME,6)↔ RIGHT(PTIME,6)
DEFINE CNTRST(A,Q){NIP A,4(Q)}
DEFINE CNTRS.(A,Q){DIP A,4(Q)}
;-----------------------------------------------------------------
;PROPERTY-TYPE MACROS.
DEFINE MARK (Q,BITS){SLACI(BITS)↔IORM(Q)2}
DEFINE MARKZ(Q,BITS){SLACI(BITS)↔ANDCAM(Q)2}
DEFINE TEST (Q,BITS){LAC(Q)2↔TLNN(BITS)}
DEFINE TESTZ(Q,BITS){LAC(Q)2↔TLNE(BITS)}
;PROPERTY-TYPE BITS.
↓WESBIT←←1B0 ;WEST. VIC ONLY.
↓SOUBIT←←1B1 ;SOUTH.
↓EASBIT←←1B2 ;EAST.
↓NORBIT←←1B3 ;NORTH.
↓NFUSE←←1B4 ;NTIME FUSION. POLYGONS ONLY.
↓NFISS←←1B5 ;NTIME FISSION.
↓NEXCT←←1B6 ;NTIME EXACT.
↓PFUSE←←1B7 ;PTIME FUSION.
↓PFISS←←1B8 ;PTIME FISSION.
↓PEXCT←←1B9 ;PTIME EXACT.
↓HOLBIT←←1B10 ;HOLE POLYGON.
↓ARCBIT←←1B11 ;ARC VECTOR.
↓SBIT←←1B12 ;SHAPE NODE.
↓VBIT←←1B13 ;VERTEX NODE.
↓PBIT←←1B14 ;POLYGON NODE.
↓LBIT←←1B15 ;LEVEL NODE.
↓IBIT←←1B16 ;IMAGE NODE.
↓FBIT←←1B17 ;FILM NODE.
;LINK-RELOCATION BITS OF EACH NODE TYPE.
VREL←←330003 ;VERTEX.
PGNREL←←333233 ;POLYGON.
LVLREL←←330000 ;LEVEL.
IMGREL←←330000 ;IMAGE.
FILREL←←011000 ;FILM.
;-----------------------------------------------------------------
↓% ←← 400000
↓NODSIZ ←← 7
↓RC←←3